﻿<!--#include file="../../Inc/Const.Asp"-->
<%
Dim ID : ID = Request("ID")
If IsNumeric(ID) and len(ID) > 0 and len(ID) < 10 Then
	Dim Plus
	Set Plus = New Cls_Plus
	Plus.Open("digg")
	If Plus.Config("state") = 0 Then
		Response.Write "<div class='diggNum'>-1</div>"
		Response.Write "<div class='diggLink'><a>禁用</a></div> "
		Set Plus = Nothing : Response.End
	End If
	Call DB("Update [{pre}Content] Set [Diggs]=[Diggs]+1 Where [ID]=" & ID,0)
	Dim Rs
	Set Rs = DB("Select [Diggs] From [{pre}Content] Where [ID]=" & ID,1)
	Response.Write "<div class='diggNum'>"& Rs(0) & "</div>"
	Response.Write "<div class='diggLink'><a href='/plus/digg/'>浏览</a></div>"
	Rs.Close: Conn.Close : Set Conn = Nothing : Set Plus = Nothing
End If
%>